3 DV=PEEK(186):IFDV<8THENDV=8
5 POKE53281,.:POKE53280,.:PRINT"[147]"
10 GOSUB60000
11 POKE214,9:PRINT:PRINTTAB(11)"[154][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
15 PRINT"[159]   [193] [204][207][193][196][211][212][193][210] [208]UZZLE FOR THE [212]ROLLEY"
100 PRINT"[144]LOAD"CHR$(34)"PXWORD"CHR$(34)","DV
110 PRINT"RUN"
120 POKE631,13:POKE632,13:POKE633,13:POKE198,3
130 END
10000 OPEN15,8,15,"S0:CRYPTIC BOOT":CLOSE15:SAVE"0:CRYPTIC BOOT",8:END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[195] [210] [217] [208] [212] [201] [195]   8 4"
60040 B9$(1)="BY [198]ENDER [212]UCKER"
60050 B9$(2)="([195]) 1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #84"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN
60999 :